home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / basic / ubmalm.zip / sigma.ub < prev    next >
Text File  |  1990-08-22  |  319b  |  10 lines

  1.    10   *Sigma(&P(),&M(),K,&Sig)
  2.    20   ' Modeled on the Pascal version. P() and M() are input parameters.
  3.    30   ' 8 May 1990
  4.    50   local I,J,Tt,Te
  5.    60   Sig=1
  6.    70   for J=1 to K:Tt=1:Te=1
  7.    90   for I=1 to M(J):Tt*=P(J):Te+=Tt:next I
  8.   120   Sig*=Te
  9.   130   next J:return ' End of subroutine Sigma.
  10.